home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / Writing / Story Writer / card_3413.txt < prev    next >
Text File  |  1987-12-28  |  7KB  |  278 lines
  1. -- card: 3413 from stack: in
  2. -- bmap block id: 12397
  3. -- flags: 0000
  4. -- background id: 2747
  5. -- name: write story
  6. ----- HyperTalk script -----
  7. on openCard
  8.   tabkey
  9. end openCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 2 (field)
  15. -- low flags: 00
  16. -- high flags: 4002
  17. -- rect: left=127 top=163 right=326 bottom=496
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 192
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: sentences
  26.  
  27.  
  28. -- part 3 (button)
  29. -- low flags: 00
  30. -- high flags: 8003
  31. -- rect: left=12 top=306 right=328 bottom=112
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Quit
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   answer "Quit HyperCard or go Home?" with "Cancel" or "Quit" or "Go Home"
  43.   if it is "Go Home" then
  44.     go home
  45.     exit mouseUp
  46.   end if
  47.   if it is "cancel" then exit mouseUp
  48.   else visual effect zoom in
  49.   domenu "Quit Hypercard"
  50. end mouseUp
  51.  
  52.  
  53. -- part 4 (button)
  54. -- low flags: 00
  55. -- high flags: 8003
  56. -- rect: left=12 top=164 right=186 bottom=112
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Next Writer
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   put the number of words in card field "sentences" into count
  68.   if count<10 then
  69.     beep 2
  70.     put "You need to write at least some more word(s)." into warn
  71.     put (10 - count) into left
  72.     put left into word seven of warn
  73.     answer warn
  74.     exit mouseUp
  75.   end if
  76.   answer "You're finished with your part of the story?" with "Instructions" or "No" or "Yes"
  77.   if it is "Instructions" then
  78.     push card
  79.     visual effect iris open
  80.     go to card "G"
  81.     exit mouseUp
  82.   end if
  83.   if it is "no" then exit mouseUp
  84.   put (count - 9) into phrase
  85.   put word phrase to count of card field "sentences" into card field "last words"
  86.   put "... " after card field "last words"
  87.   put card field "sentences" & space after card field "final" of card "show story"
  88.   put empty into card field "sentences"
  89.   tabKey
  90. end mouseUp
  91.  
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: 8003
  98. -- rect: left=12 top=216 right=238 bottom=112
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Instructions
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   push card
  110.   visual effect iris open
  111.   go to card "Instructions"
  112. end mouseUp
  113.  
  114.  
  115.  
  116.  
  117. -- part 6 (field)
  118. -- low flags: 01
  119. -- high flags: 0002
  120. -- rect: left=127 top=26 right=51 bottom=495
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 18
  126. -- style flags: 0
  127. -- line height: 24
  128. -- part name: title
  129.  
  130.  
  131. -- part 7 (field)
  132. -- low flags: 01
  133. -- high flags: 0002
  134. -- rect: left=127 top=54 right=73 bottom=495
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: character
  143.  
  144.  
  145. -- part 8 (field)
  146. -- low flags: 01
  147. -- high flags: 0002
  148. -- rect: left=127 top=76 right=111 bottom=496
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: theme
  157.  
  158.  
  159. -- part 9 (field)
  160. -- low flags: 01
  161. -- high flags: 0002
  162. -- rect: left=127 top=126 right=160 bottom=496
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 0
  166. -- font id: 192
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: last words
  171.  
  172.  
  173. -- part 10 (button)
  174. -- low flags: 00
  175. -- high flags: 8003
  176. -- rect: left=12 top=242 right=264 bottom=112
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: New Story
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   beep 2
  188.   answer "End this story and begin a new story?" with "Yes" or "No"
  189.   If it is "yes" then
  190.     get empty
  191.     put it into card field "title"
  192.     put it into card field "character"
  193.     put it into card field "theme"
  194.     put it into card field "last words"
  195.     put it into card field "sentences"
  196.     put it into card field "title" of card "title"
  197.     put it into card field "character" of card "title"
  198.     put it into card field "theme" of card "title"
  199.     visual scroll down
  200.     go to card "title"
  201.   end if
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 11 (button)
  207. -- low flags: 00
  208. -- high flags: 8003
  209. -- rect: left=12 top=190 right=212 bottom=112
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Show Finished
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   get card field "last words"
  221.   if it is empty then
  222.     get card field "sentences"
  223.     if it is empty then
  224.       beep 2
  225.       answer "You've got to write something first!"
  226.       exit mouseUp
  227.     end if
  228.   end if
  229.   answer "Is this story completed?" with "Instructions" or "No" or "Yes"
  230.   if it is "Instructions" then
  231.     push card
  232.     visual effect iris open
  233.     go to card "H"
  234.     exit mouseUp
  235.   end if
  236.   if it is "no" then exit mouseUp
  237.   get card field "sentences"
  238.   if it is not empty then put card field "sentences" after card field "final" of card "show story"
  239.   visual effect barn door close slow to black
  240.   put empty into card field "title"
  241.   put empty into card field "character"
  242.   put empty into card field "theme"
  243.   put empty into card field "last words"
  244.   put empty into card field "sentences"
  245.   visual effect barn door open slow
  246.   go to card "show story"
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 17 (button)
  252. -- low flags: 00
  253. -- high flags: 8003
  254. -- rect: left=12 top=268 right=290 bottom=112
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: Read A Story
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   beep 2
  266.   answer "Wait!  Do you want to finish this story first?" with "No thanks" or "Yes, please"
  267.   if it is "No thanks" then
  268.     get empty
  269.     put it into card field "title"
  270.     put it into card field "character"
  271.     put it into card field "theme"
  272.     put it into card field "last words"
  273.     put it into card field "sentences"
  274.     answer "Which story would you like to read?" with "Story 1" or "Story 2" or "Story 3"
  275.     go to card it
  276.   end if
  277. end mouseUp
  278.